args = inputbox("0/1/2/else",args,"0")
args = trim(args)
select case args
	case "0"
		args = "016-8VIA"
	case "1"
		args = "014-8VIA"
	case "2"
		args = "014-8VIA"
	case "3"
		args = "014-8VIA"		
	case else
		args = trim(args)
end select
if args="" then args = "014-8VIA"

Dim fileContent
fileContent = "Application.ExecuteCommand(""Properties"")" & chr(13) & chr(10)
fileContent = fileContent & "ViaPropertiesDlg.ViaName = " & chr(34) & args & chr(34) & chr(13) & chr(10)
fileContent = fileContent & "ViaPropertiesDlg.Ok.Click()"	
dim tempFile
tempFile = application.activedocument.path & "\tmp1.mcr"
Dim fso,fw
Set fso = CreateObject("Scripting.FileSystemObject")
set fw = fso.createtextfile(tempFile, True)
fw.write fileContent
fw.close
set fw = nothing
Application.RunMacro(tempFile)
fso.deletefile(tempFile,true)
set fso =nothing